home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / VISUALBA / PBTCL132.ZIP / PBTCLASS.DEC < prev    next >
Text File  |  1994-02-04  |  4KB  |  96 lines
  1. $LINK "PBTCLASS.PBL"
  2.  
  3. DEFINT A-Z
  4.  
  5. DECLARE FUNCTION Attr(integer, integer)
  6. DECLARE FUNCTION Back(integer)
  7. DECLARE FUNCTION CapStat()
  8. DECLARE FUNCTION Center$(string, integer)
  9. DECLARE FUNCTION CheckKey()
  10. DECLARE FUNCTION CurBot()
  11. DECLARE FUNCTION CurDisplay%()
  12. DECLARE FUNCTION CurTop()
  13. DECLARE FUNCTION DelChar$(string, integer)
  14. DECLARE FUNCTION Fore(integer)
  15. DECLARE FUNCTION GetFrst$(string)
  16. DECLARE FUNCTION GetKey$()
  17. DECLARE FUNCTION GetScrn$(integer, integer, integer)
  18. DECLARE FUNCTION InsChar$(string, string, integer)
  19. DECLARE FUNCTION InsStat()
  20. DECLARE FUNCTION IsASCII(string)
  21. DECLARE FUNCTION IsAlpha(string)
  22. DECLARE FUNCTION IsAlphaNum(string)
  23. DECLARE FUNCTION IsAlt()
  24. DECLARE FUNCTION IsCaps()
  25. DECLARE FUNCTION IsCtrl()
  26. DECLARE FUNCTION IsInsert()
  27. DECLARE FUNCTION IsLShift()
  28. DECLARE FUNCTION IsMouse()
  29. DECLARE FUNCTION IsNum(string)
  30. DECLARE FUNCTION IsNumLock()
  31. DECLARE FUNCTION IsPunct(string)
  32. DECLARE FUNCTION IsRShift()
  33. DECLARE FUNCTION IsScroll()
  34. DECLARE FUNCTION LPad$(string, integer, integer)
  35. DECLARE FUNCTION Menu(string array, integer, integer, integer, integer, integer)
  36. DECLARE FUNCTION MouseKey$()
  37. DECLARE FUNCTION NumStat()
  38. DECLARE FUNCTION RPad$(string, integer, integer)
  39. DECLARE FUNCTION ScrollStat()
  40. DECLARE FUNCTION Toggle(integer, integer, string array, integer, integer, integer, string)
  41. DECLARE FUNCTION Trim$(string)
  42. DECLARE FUNCTION VidMode()
  43. DECLARE FUNCTION VidSeg()
  44.  
  45. DECLARE SUB AddShadow(integer)
  46. DECLARE SUB BorSel(integer, string, string, string, string, string, string, string)
  47. DECLARE SUB Box(integer, integer, integer, integer, integer, integer, integer, integer)
  48. DECLARE SUB CLRKBD()
  49. DECLARE SUB CapsOff()
  50. DECLARE SUB CapsOn()
  51. DECLARE SUB ChangeWin(integer)
  52. DECLARE SUB ClearWin()
  53. DECLARE SUB CloseWin()
  54. DECLARE SUB Fill(BYVAL word, BYVAL word, BYVAL word, BYVAL word, BYVAL word, BYVAL word)
  55. DECLARE SUB InitPBScreen()
  56. DECLARE SUB InsertOff()
  57. DECLARE SUB InsertOn()
  58. DECLARE SUB LScroll(integer, integer, integer, integer, integer, integer)
  59. DECLARE SUB MLocate(integer, integer)
  60. DECLARE SUB MaskIn(integer, integer, integer, integer, string, string, string)
  61. DECLARE SUB MouseOff()
  62. DECLARE SUB MouseOn()
  63. DECLARE SUB MouseStat(integer, integer, integer)
  64. DECLARE SUB MouseWin(integer, integer, integer, integer)
  65. DECLARE SUB MoveWin(integer)
  66. DECLARE SUB NoShadow()
  67. DECLARE SUB NumIn(integer, integer, integer, integer, integer, double, string)
  68. DECLARE SUB NumOff()
  69. DECLARE SUB NumOn()
  70. DECLARE SUB OpenWin(integer, integer, integer, integer, integer, integer, integer, integer, integer, integer)
  71. DECLARE SUB PFirst(string, integer, integer)
  72. DECLARE SUB PutScrn(integer, integer, string)
  73. DECLARE SUB RScroll(integer, integer, integer, integer, integer, integer)
  74. DECLARE SUB ReAttr(BYVAL word, BYVAL word, BYVAL word, BYVAL word, BYVAL word)
  75. DECLARE SUB Recolor(BYVAL integer, BYVAL integer)
  76. DECLARE SUB ScrollDN(integer, integer, integer, integer, integer, integer)
  77. DECLARE SUB ScrollOff()
  78. DECLARE SUB ScrollOn()
  79. DECLARE SUB ScrollPrint(string)
  80. DECLARE SUB ScrollUp(integer, integer, integer, integer, integer, integer)
  81. DECLARE SUB ScrollWin(integer)
  82. DECLARE SUB SetText(integer)
  83. DECLARE SUB StuffKey(string)
  84. DECLARE SUB TextEd(integer, integer, integer, integer, integer, string, string)
  85. DECLARE SUB TextIn(integer, integer, integer, integer, integer, string, string)
  86. DECLARE SUB Title(integer, integer, string)
  87. DECLARE SUB WPrint(integer, integer, string, integer)
  88. DECLARE SUB WPrintC(integer, string, integer)
  89. DECLARE SUB WPrintCF(integer, string, integer)
  90. DECLARE SUB WinColor(integer)
  91. DECLARE SUB ZoomBox(integer, integer, integer, integer, integer, integer, integer, integer, integer)
  92.  
  93. PUBLIC CurWin%, MaxWin%, ScrnBase%
  94.  
  95. MaxWin%=20  'Defaults to 15, reset to 20 for demo.
  96.